1 POKE55,0:POKE56,64:CLR:A$=""
2 GOSUB1000:REM GOTO7
3 SYS57812"UNPACKER",8,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
4 SYS57812"INPUT ANY.O",8,0:POKE780,0:POKE781,60:POKE782,3:SYS65493
7 IP=828:UN=51456:HG=51459
9 CL$="                                      "
12 DIMG$(250)
27 P=1:PT=0:E=1
28 REM  GOTO100
30 OPEN3,8,3,"T.WORK"
32 FORI=0TO1
35 SYS828,3,40:H=H+1:I=ST
37 G$(PT*19+H)=A$:IFH=19THENPT=PT+1:H=0
38 NEXT:CLOSE3:PT=PT+1
100 POKE53281,9:POKE53280,9:PRINT"[147]     [215][193][204][212]'[211] [215][207][210][203][211][200][207][208]"TAB(31)"[150] OF"PT
101 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
102 FORI=1TO20:PRINT"[221]"SPC(38)"[221]";:NEXT
103 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
104 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
105 POKE214,22:PRINT:PRINT"[150]  ([206][150])EXT  ([208][150])REVIOUS  ([198][150])IRST  ([204][150])AST"
106 PRINT"  (1[150]) THROUGH (8[150]) FOR PICTURE  ([209][150])UIT[158]"
108 PRINT""TAB(28)"   [157][157][157]"P"[158]"
110 FORJ=ETOE+19
120 PRINT""G$(J)
130 NEXT
150 GETA$:IFA$=""THEN150
160 IFA$>="1"ANDA$<="8"THEN200
165 IFA$=""ORA$="N"THENIFP<PTTHENP=P+1:E=E+19:GOTO195
170 IFA$="[145]"ORA$="P"THENIFP>1THENP=P-1:E=E-19:GOTO195
175 IFA$="[157]"ORA$="F"THENE=1:P=1:GOTO195
180 IFA$=""ORA$="L"THENE=(PT-1)*19+1:P=PT:GOTO195
185 IFA$="Q"THEN400
190 GOTO150
195 PRINT"[145][145]":FORK=1TO20:PRINTCL$"[145][145]":NEXT:GOTO108
200 IFA$=D$THEN240
210 D$=A$
220 PRINT:PRINTCL$:PRINTCL$"[145][145][145]"
230 SYS57812A$+".SHP",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
240 POKE249,224:POKE250,204
250 POKE251,0:POKE252,64
260 POKE253,0:POKE254,0
270 PRINT"[147]";:SYSUN:SYSHG:POKE53280,0
280 POKE198,0
290 GETA$:IFA$=""THEN290
295 SYSHG:GOTO100
299 GOTO299
400 POKE214,22:PRINT:PRINTCL$:PRINTCL$"[145][145]"
405 PRINT"        [209]UIT[150] TO [204][207][193][196][211][212][193][210]  (Y[150]/N[150])"
410 GETA$:IFA$<>"Y"ANDA$<>"N"THEN410
420 IFA$="N"THEN105
430 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
440 IFER%<>63THENPRINT"[147]":END
445 POKE646,PEEK(53281)
450 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
460 PRINT"RUN"
470 POKE631,13:POKE632,13:POKE198,2:END
1000 PRINT"[147]":POKE53281,0:POKE53280,0
1010 PRINT"            [159][204][207][193][196][211][212][193][210] [154]PRESENTS"
1020 PRINT"  [150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1030 PRINT"  }[176]````````````````````````````````[174][146]}"
1040 PRINT"  }}[146][176]``````````````````````````````[174]}[146]}"
1050 PRINT"  [221][221][146][221] [155][215] [193] [204] [212]' [211]   [215] [207] [210] [203] [211] [200] [207] [208] [150][221][221][146][221]"
1060 PRINT"  }}[146]}                              }}[146]}"
1070 PRINT"  [221][221][146][221] [152]- [193] [212]UTORIAL AND [211]LIDESHOW - [150][221][221][146][221]"
1080 PRINT"  [221][221][146][221]      [158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]     [150][221][221][146][221]"
1090 PRINT"  [221][221][146][221][158][171][192][192][192][192][192][189] [159]BY  [215]ALT [200]ARNED [158][173][192][192][192][192][179][150][221][221][146][221]"
1100 PRINT"  }}[146][173]``````````````````````````````[189]}[146]}"
1110 PRINT"  }[173]````````````````````````````````[189][146]}"
1120 PRINT"  [173]``````````````````````````````````[189]"
1130 PRINT"[154]   [212]HIS WILL JUST TAKE A FEW SECONDS."
61000 POKE214,15:PRINT""
61110 PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
61120 PRINT"  [152]                                    "
61130 PRINT"                                      "
61140 PRINT"                                      "
61150 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #60     "
61160 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
61170 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
61180 PRINT"                                      "
61190 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
61200 AU$="[215]ALT'S [215]ORKSHOP":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
61210 AU$="BY [215]ALT [200]ARNED  ([195]) 1989":POKE214,18:PRINT
61220 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$""
61230 RETURN